﻿Module Module1
  Sub Main()

    Dim NL As String = Environment.NewLine
    Dim stringa1 As String = "testo1"
    Dim stringa2 As String = "testo2"
    Dim stringa3 As String = "testo3"
    Dim stringa4 As String = "testo1"
    Dim risultato As String = ""
    risultato &= "Confronto tra " & _
                 "stringa1 e stringa2: "
    risultato &= String.Compare("" & _
                 stringa1, stringa2) & NL
    risultato &= "Confronto tra " & _
                 "stringa1 e stringa4: "
    risultato &= String.Compare("" & _
                 stringa1, stringa4) & NL
    risultato &= "Confronto tra " & _
                 "stringa3 e stringa2: "
    risultato &= String.Compare("" & _
                 stringa3, stringa2) & NL
    Console.WriteLine(risultato)
    Console.ReadLine()

  End Sub
End Module
